home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / presentmenu.avmsrc < prev    next >
Text File  |  1977-12-31  |  3KB  |  167 lines
  1. startrecord=true
  2. label=
  3. nodetype=8
  4. line1=procedure expose pmRetries pmTimesAround
  5. line2=parse arg filename, valid, retries
  6. line3=timesaround = retries
  7. line4=pmTimesAround = timesaround
  8. line5=pmRetries = retries
  9. line6=
  10. line7=
  11. line8=
  12. line9=
  13. line10=
  14. nextactiontype=3
  15. nextactionaction=
  16. endrecord=true
  17. startrecord=true
  18. label=
  19. nodetype=7
  20. filename=avm:rexx/status.avm
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=aapresentmenuloop
  26. nodetype=1
  27. filename=filename
  28. comment=
  29. keyactiontype=3
  30. keyactionaction=
  31. faxactiontype=2
  32. faxactionaction=return rs.faxdetected
  33. dataactiontype=2
  34. dataactionaction=return rs.datadetected
  35. busyactiontype=2
  36. busyactionaction=return rs.busydetected
  37. abortactiontype=2
  38. abortactionaction=return rs.signaldetected
  39. erroractiontype=2
  40. erroractionaction=return rs.error
  41. nextactiontype=3
  42. nextactionaction=
  43. endrecord=true
  44. startrecord=true
  45. label=
  46. nodetype=4
  47. timeout=5
  48. numkeys=1
  49. untilkey=0
  50. keyactiontype=0
  51. keyactionaction=aapresentmenuvalue
  52. faxactiontype=2
  53. faxactionaction=return rs.faxdetected
  54. dataactiontype=2
  55. dataactionaction=return rs.datadetected
  56. busyactiontype=2
  57. busyactionaction=return rs.busydetected
  58. timedoutactiontype=0
  59. timedoutactionaction=aapresentmenutimeout
  60. abortactiontype=2
  61. abortactionaction=return rs.signaldetected
  62. erroractiontype=2
  63. erroractionaction=return rs.error
  64. nextactiontype=2
  65. nextactionaction=return rs.error
  66. endrecord=true
  67. startrecord=true
  68. label=aapresentmenutimeout
  69. nodetype=12
  70. nextactiontype=3
  71. nextactionaction=
  72. endrecord=true
  73. startrecord=true
  74. label=
  75. nodetype=1
  76. filename='avm:voices/TimedOut'
  77. comment=You did not press a key.
  78. keyactiontype=3
  79. keyactionaction=
  80. faxactiontype=2
  81. faxactionaction=return rs.faxdetected
  82. dataactiontype=2
  83. dataactionaction=return rs.datadetected
  84. busyactiontype=2
  85. busyactionaction=return rs.busydetected
  86. abortactiontype=2
  87. abortactionaction=return rs.signaldetected
  88. erroractiontype=2
  89. erroractionaction=return rs.error
  90. nextactiontype=3
  91. nextactionaction=
  92. endrecord=true
  93. startrecord=true
  94. label=
  95. nodetype=8
  96. line1=timesaround = timesaround - 1; pmTimesAround = timesaround
  97. line2=if timesaround <= 0 then return rs.timedout
  98. line3=
  99. line4=
  100. line5=
  101. line6=
  102. line7=
  103. line8=
  104. line9=
  105. line10=
  106. nextactiontype=0
  107. nextactionaction=aapresentmenuloop
  108. endrecord=true
  109. startrecord=true
  110. label=aapresentmenuvalue
  111. nodetype=8
  112. line1=if pos(value, valid) = 0 then signal aainvalid
  113. line2=
  114. line3=
  115. line4=
  116. line5=
  117. line6=
  118. line7=
  119. line8=
  120. line9=
  121. line10=
  122. nextactiontype=2
  123. nextactionaction=return '=' || value
  124. endrecord=true
  125. startrecord=true
  126. label=aainvalid
  127. nodetype=12
  128. nextactiontype=3
  129. nextactionaction=
  130. endrecord=true
  131. startrecord=true
  132. label=
  133. nodetype=1
  134. filename='avm:voices/BadChoice'
  135. comment=You entered a bad choice.
  136. keyactiontype=3
  137. keyactionaction=
  138. faxactiontype=2
  139. faxactionaction=return rs.faxdetected
  140. dataactiontype=2
  141. dataactionaction=return rs.datadetected
  142. busyactiontype=2
  143. busyactionaction=return rs.busydetected
  144. abortactiontype=2
  145. abortactionaction=return rs.signaldetected
  146. erroractiontype=2
  147. erroractionaction=return rs.error
  148. nextactiontype=3
  149. nextactionaction=
  150. endrecord=true
  151. startrecord=true
  152. label=
  153. nodetype=8
  154. line1=timesaround = timesaround - 1; pmTimesAround = timesaround
  155. line2=if timesaround <= 0 then return rs.timedout
  156. line3=
  157. line4=
  158. line5=
  159. line6=
  160. line7=
  161. line8=
  162. line9=
  163. line10=
  164. nextactiontype=0
  165. nextactionaction=aapresentmenuloop
  166. endrecord=true
  167.